home *** CD-ROM | disk | FTP | other *** search
/ SuperModels in the Rainforest / SuperModels in the Rainforest.iso / rain.dxr / 00057_Girls score script.ls < prev    next >
Encoding:
Text File  |  1995-10-13  |  2.0 KB  |  83 lines
  1. on exitFrame
  2.   global gbVideoUp, girly
  3.   set girly to 1
  4.   nameplate()
  5.   if gbVideoUp = 1 then
  6.     repeat with x = 25 to 28
  7.       if rollOver(x) then
  8.         set the cursor of sprite x to [561, 562]
  9.       end if
  10.     end repeat
  11.     if rollOver(29) then
  12.       set the cursor of sprite 29 to [569, 570]
  13.     end if
  14.     set the visible of sprite 2 to 1
  15.     repeat with x = 3 to 5
  16.       if rollOver(x) then
  17.         set the cursor of sprite x to [563, 564]
  18.       end if
  19.     end repeat
  20.     repeat with x = 25 to 29
  21.       if rollOver(x) then
  22.         set the visible of sprite x to 1
  23.         next repeat
  24.       end if
  25.       set the visible of sprite x to 0
  26.     end repeat
  27.   else
  28.     set the visible of sprite 2 to 0
  29.   end if
  30.   repeat with x = 20 to 24
  31.     if rollOver(x) then
  32.       set the cursor of sprite x to [561, 562]
  33.     end if
  34.   end repeat
  35.   repeat with x = 20 to 24
  36.     if rollOver(x) then
  37.       set the visible of sprite x to 1
  38.       next repeat
  39.     end if
  40.     set the visible of sprite x to 0
  41.   end repeat
  42.   go(the frame)
  43. end
  44.  
  45. on keyDown
  46.   global giVid2Sprite, giVidSprite, giTempVid2Cast, giTempVidCast
  47.   set tempSprite to 0
  48.   if the visible of sprite giVid2Sprite = 1 then
  49.     set tempSprite to giVid2Sprite
  50.     set tempCast to giTempVid2Cast
  51.   else
  52.     if the visible of sprite giVidSprite = 1 then
  53.       set tempSprite to giVidSprite
  54.       set tempCast to giTempVidCast
  55.     end if
  56.   end if
  57.   if tempSprite then
  58.     set the sound of cast tempCast to 0
  59.     if the keyCode = 123 then
  60.       set the movieRate of sprite tempSprite to -1
  61.     else
  62.       if the keyCode = 124 then
  63.         set the movieRate of sprite tempSprite to 1
  64.       end if
  65.     end if
  66.   end if
  67. end
  68.  
  69. on keyUp
  70.   global giVid2Sprite, giVidSprite
  71.   set tempSprite to 0
  72.   if the visible of sprite giVid2Sprite = 1 then
  73.     set tempSprite to giVid2Sprite
  74.   else
  75.     if the visible of sprite giVidSprite = 1 then
  76.       set tempSprite to giVidSprite
  77.     end if
  78.   end if
  79.   if ((the keyCode = 123) or (the keyCode = 124)) and tempSprite then
  80.     set the movieRate of sprite tempSprite to 0
  81.   end if
  82. end
  83.